(unrmail): Use current-time-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76b55d3c4aa85f47fb977a4676ebad6258a24416..bd205450369b9704e921d3ed590fd8d10ba569bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-02-06  Glenn Morris  <rgm@gnu.org>
 
+       * mail/unrmail.el (unrmail): Use current-time-string.
+
        * simple.el (kill-whole-line): Provide a default argument of 1.
 
        * mail/undigest.el (rmail-mail-separator): Delete.

diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index bd000deddd289ce570905719da88bd014c149e3e..395e7d2e2e674b1bd524be7367b1f0f15cae33db 100644 (file)
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -194,8 +194,7 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
                                  (or
                                   (and date
                                        (ignore-errors
-                                        (format-time-string
-                                         "%a %b %e %T %Y"
+                                        (current-time-string
                                          (date-to-time date))))
                                   (current-time-string))))))